home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / indus / cpaledg1 / setup.bas < prev    next >
BASIC Source File  |  1986-02-28  |  3KB  |  54 lines
  1. 500  ' COPYRIGHT 1985 TRONOLONE & FOSTER, PC
  2. 1000 KEY OFF: CLS: LOCATE 5,1: BEEP: BEEP: BEEP
  3. 1010 LOCATE 3,1: PRINT SPC(35) "CPA-LEDGER"
  4. 1020 LOCATE 5,1: PRINT SPC(35) "SETUP MENU": LOCATE 8,1
  5. 1030 PRINT"SELECT ONE OF THE OPTION NUMBERS BELOW.": PRINT
  6. 1040 PRINT"  1. ESTABLISH A NEW GENERAL LEDGER AND ASSIGN ACCOUNT TITLES.
  7. 1050 PRINT"  2. IDENTIFY SELECTED ACCOUNT NUMBERS THAT ARE IN THE NEW GENERAL
  8. 1060 PRINT"     GENERAL LEDGER AND IDENTIFY YOUR BUSINESS NAME."
  9. 1070 PRINT"  3. ASSIGN BEGINNING DOLLAR AMOUNTS TO NEW GENERAL LEDGER ACCOUNTS.
  10. 1080 PRINT"  4. STOP ALL CPA-LEDGER PROCESSING AND RETURN CONTROL TO PC-DOS."
  11. 1090 LOCATE 16,1: PRINT"WHICH OPTION NUMBER DO YOU SELECT?";: GOSUB 1290: ROW=16: COLUMN=37: LENGTH=2: GOSUB 1300
  12. 1100 F1=0:FOR I = 1 TO LEN(I8$): IF MID$(I8$,I,1) < "1" OR MID$(I8$,I,1) > "9" THEN F1=1: NEXT I
  13. 1110 IF F1 = 0 AND VAL(I8$) => 1 AND VAL(I8$) =< 4 THEN GOTO 1160
  14. 1120 BEEP: BEEP: BEEP:LOCATE 22,1: PRINT"ENTRY IS INCORRECT. TRY AGAIN. PRESS ANY KEY TO CONTINUE.": GOSUB 1290
  15. 1130 K$=INKEY$
  16. 1140 IF K$="" THEN GOTO 1130
  17. 1150 LOCATE 22,1: PRINT SPACE$(80): GOTO 1090
  18. 1160 IF I8$="4" THEN CLS: SYSTEM
  19. 1170 IF I8$="2" THEN GOTO 1270
  20. 1180 CLS: BEEP: BEEP: BEEP: LOCATE 10,1: PRINT"PRESS THE  'OFF' SWITCH ON YOUR PRINTER.  ONCE THE PRINTER IS SWITCHED OFF,"
  21. 1190 PRINT"ADJUST THE PAPER SO THAT THE PAPER IS AT TOP-OF-PAGE.  THE PAPER WILL BE AT"
  22. 1200 PRINT"TOP-OF-PAGE WHEN THE PRINTER WILL PRINT ON THE VERY FIRST LINE AT THE TOP OF"
  23. 1210 PRINT"THE PAGE.  AFTER THE PAPER IS ADJUSTED SO THAT IT IS AT TOP-OF-PAGE, PRESS"
  24. 1220 PRINT"THE PRINTER  'ON' SWITCH.": PRINT
  25. 1230 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 1290
  26. 1240 K$=INKEY$
  27. 1250 IF K$="" THEN GOTO 1240
  28. 1260 IF I8$="1" THEN GOSUB 1510: RUN "A:GENLGR.BAS": END
  29. 1270 IF I8$="2" THEN GOSUB 1510: RUN "A:STOACT.BAS": END
  30. 1280 IF I8$="3" THEN GOSUB 1510: RUN "A:OPNBAL.BAS": END
  31. 1290 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
  32. 1300 I8$=""
  33. 1310 FOR X = 1 TO LENGTH: I8$=I8$ + CHR$(254): NEXT X
  34. 1320 LOCATE ROW,COLUMN
  35. 1330 PRINT I8$;
  36. 1340 POINTER = 1: A$=" "
  37. 1350 WHILE (ASC(A$) <> 13)
  38. 1360 A$ = INPUT$(1)
  39. 1370 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 1490
  40. 1380 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 1440
  41. 1390 IF (POINTER > LENGTH) THEN BEEP: BEEP: BEEP: GOTO 1490
  42. 1400 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 1470
  43. 1410 IF (POINTER = 1) AND (ASC(A$) = 8) THEN BEEP: BEEP: BEEP: GOTO 1470
  44. 1420 IF (ASC(A$) <> 8) THEN GOTO 1460
  45. 1430 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
  46. 1440    MID$(I8$,POINTER-1,1) = CHR$(254)
  47. 1450    POINTER = POINTER -1
  48. 1460 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
  49. 1470 LOCATE ROW,COLUMN
  50. 1480 PRINT I8$
  51. 1490 WEND
  52. 1500 RETURN
  53. 1510 CLS: LOCATE 10,31: PRINT"PLEASE STAND BY.": RETURN
  54.